home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8607.d64 / zviza 2 (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  2KB  |  37 lines
  1. 1 REM *********************************       *     ZVIZA VERSION 2           *
  2. 2 REM *     ZEICHENSATZ FUER          *       *     VIZAWRITE (ENGL.)         *
  3. 3 REM *      BERTRAM HAFNER           *       *                               *
  4. 4 REM *********************************       *                               *
  5. 5 REM *     ZEILEN 225,235,245,       *       *     255,265,275 UND 285       *
  6. 6 REM *     VON GERD HECHTFISCHER     *       *                               *
  7. 7 REM *********************************
  8. 10 I=I+1:READA:IFA=-1GOTO12
  9. 11 POKE49200+I,A:GOTO10
  10. 12 POKE49200+I,1
  11. 15 POKE160,0:POKE161,0:POKE162,0           :REM TIMER AUF 0 STELLEN
  12. 20 POKE789,192                             :REM START DES MASCHINENPRG
  13. 30 LOAD"VIZAWRITE 64",8,1
  14. 100 DATA165,161,201,12,240,3,76,49,234,162,0,189,100,192,201,1,240,25,133,251
  15. 101 DATA232,189,100,192,133,252,232,160,0,189,100,192,145,251,232,200,192,8
  16. 102 DATA48,245,76,60,192,169,234,141,21,3,76,49,234
  17. 200 REM  NEUE ZEICHEN FUER BILDSCHIRM            ****************************
  18. 210 REM  EINGABEFORMAT DER 10 DATAS:             ZIELADR LOW,HI,8 BYTES
  19. 211 REM  BERECHNUNG DER ZIELADRESSE:             BC=BILDSCHIRMCODE DES ZU
  20. 212 REM  ERSETZENDEN ZEICHENS (SATZ 2)           ZIELADR=BC*8+56*256
  21. 213 REM  HI = INT(ZIELADR/256)                   LOW= ZIELADR-HI*256
  22. 220 DATA0,56,102,0,60,6,62,102,62,0         :REM KLEIN AE FUER @
  23. 225 DATA0,60,153,255,195,249,193,153,193,255   :REM REVERS-KLEIN AE
  24. 230 DATA224,56,102,0,60,102,102,102,60,0    :REM KLEIN OE FUER \
  25. 235 DATA224,60,153,255,195,153,153,153,195,255   :REM REVERS KLEIN OE
  26. 240 DATA216,56,102,24,60,102,126,102,102,0  :REM GROSS AE FUER [
  27. 245 DATA216,60,153,231,195,153,129,153,153,255   :REM REVERS GROSS AE
  28. 250 DATA232,56,51,102,102,102,102,102,60,0  :REM GROSS UE FUER ]
  29. 255 DATA232,60,204,153,153,153,153,153,195,255   :REM REVERS GROSS UE
  30. 260 DATA240,56,0,60,102,108,102,102,108,96  :REM SCHARF S FUER ^
  31. 265 DATA240,60,255,195,153,147,153,153,147,159: REM REVERS SCHARF S
  32. 270 DATA80,57,102,0,102,102,102,102,59,0    :REM KLEIN UE FUER *
  33. 275 DATA80,61,153,255,153,153,153,153,196,255: REM REVERS KLEIN UE
  34. 280 DATA240,58,0,0,3,62,118,54,54,0         :REM (null) FUER SHIFT ^
  35. 285 DATA 240,62,255,255,252,193,137,201,201,255: REM REVERS (null)
  36. 500 DATA-1:REM FLAG FUER ENDE
  37.